unit ULogin;

interface

type
  TLogin = class
    private
      FUsuario: String;
      FSenha: String;

      function GetUsuario: String;
      procedure SetUsuario(const Value: String);

      function GetSenha: String;
      procedure SetSenha(const Value: String);

    protected

    public
      constructor Create;
      function OpenSystem(MethodUser, MethodPwd: String): Boolean;
      
      property Usuario: String read GetUsuario write SetUsuario;
      property Senha: String read GetSenha write SetSenha;

  end;

implementation

{ TLogin }

constructor TLogin.Create;
begin
  FUsuario := '';
  FSenha := '';
end;

function TLogin.GetUsuario: String;
begin
  Result := FUsuario;
end;

procedure TLogin.SetUsuario(const Value: String);
begin
  FUsuario := Value;
end;

function TLogin.GetSenha: String;
begin
  Result := FSenha;
end;

procedure TLogin.SetSenha(const Value: String);
begin
  FSenha := Value;
end;



function TLogin.OpenSystem(MethodUser, MethodPwd: String): Boolean;
begin
  if((MethodUser <> '') and (MethodPwd <> ''))then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

end.
 